home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 7 / Night Owl Shareware (NOPV7)(Night Owl Publisher Inc.)(1992).bin / 038a / bash1_12.arj / BASH1-12.TAR / bash-1.12 / builtins / alias.def next >
Text File  |  1991-12-29  |  4KB  |  190 lines
  1. This file is alias.def, from which is created alias.c
  2. It implements the builtins "alias" and "unalias" in Bash.
  3.  
  4. Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
  5.  
  6. This file is part of GNU Bash, the Bourne Again SHell.
  7.  
  8. Bash is free software; you can redistribute it and/or modify it under
  9. the terms of the GNU General Public License as published by the Free
  10. Software Foundation; either version 1, or (at your option) any later
  11. version.
  12.  
  13. Bash is distributed in the hope that it will be useful, but WITHOUT ANY
  14. WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16. for more details.
  17.  
  18. You should have received a copy of the GNU General Public License along
  19. with Bash; see the file COPYING.  If not, write to the Free Software
  20. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22. $BUILTIN alias
  23. $FUNCTION alias_builtin
  24. $DEPENDS_ON ALIAS
  25. $PRODUCES alias.c
  26. $SHORT_DOC alias [ name[=value] ... ]
  27. `alias' with no arguments prints the list of aliases in the form
  28. NAME=VALUE on standard output.  An alias is defined for each NAME
  29. whose VALUE is given.  A trailing space in VALUE causes the next
  30. word to be checked for alias substitution.  Alias returns true
  31. unless a NAME is given for which no alias has been defined.
  32. $END
  33.  
  34. #include <stdio.h>
  35. #include "../shell.h"
  36. #include "../alias.h"
  37.  
  38. extern int interactive;
  39. static void print_alias ();
  40.  
  41. /* Hack the alias command in a Korn shell way. */
  42. alias_builtin (list)
  43.      WORD_LIST *list;
  44. {
  45.   int any_failed = 0;
  46.  
  47.   if (!list)
  48.     {
  49.       register int i;
  50.  
  51.       if (!aliases)
  52.     return (EXECUTION_FAILURE);
  53.  
  54.       for (i = 0; aliases[i]; i++)
  55.     print_alias (aliases[i]);
  56.     }
  57.   else
  58.     {
  59.       while (list)
  60.     {
  61.       register char *value, *name = list->word->word;
  62.       register int offset;
  63.  
  64.       for (offset = 0; name[offset] && name[offset] != '='; offset++);
  65.  
  66.       if (offset && name[offset] == '=')
  67.         {
  68.           name[offset] = '\0';
  69.           value = name + offset + 1;
  70.  
  71.           add_alias (name, value);
  72.         }
  73.       else
  74.         {
  75.           ASSOC *t = find_alias (name);
  76.           if (t)
  77.         print_alias (t);
  78.           else
  79.         {
  80.           if (interactive)
  81.             builtin_error ("`%s' not found", name);
  82.           any_failed++;
  83.         }
  84.         }
  85.       list = list->next;
  86.     }
  87.     }
  88.   if (any_failed)
  89.     return (EXECUTION_FAILURE);
  90.   else
  91.     return (EXECUTION_SUCCESS);
  92. }
  93.  
  94. $BUILTIN unalias
  95. $FUNCTION unalias_builtin
  96. $DEPENDS_ON ALIAS
  97. $SHORT_DOC unalias [-a] [name ...]
  98. Remove NAMEs from the list of defined aliases.  If the -a option is given,
  99. then remove all alias definitions.
  100. $END
  101. /* Remove aliases named in LIST from the aliases database. */
  102. unalias_builtin (list)
  103.      register WORD_LIST *list;
  104. {
  105.   register ASSOC *alias;
  106.   int any_failed = 0;
  107.  
  108.   while (list && *list->word->word == '-')
  109.     {
  110.       register char *word = list->word->word;
  111.  
  112.       if (strcmp (word, "-a") == 0)
  113.     {
  114.       delete_all_aliases ();
  115.       list = list->next;
  116.     }
  117.       else if (strcmp (word, "--") == 0)
  118.     {
  119.       list = list->next;
  120.       break;
  121.     }
  122.       else
  123.     {
  124.       bad_option (word);
  125.       return (EXECUTION_FAILURE);
  126.     }
  127.     }
  128.  
  129.   while (list)
  130.     {
  131.       alias = find_alias (list->word->word);
  132.  
  133.       if (alias)
  134.     remove_alias (alias->name);
  135.       else
  136.     {
  137.       if (interactive)
  138.         builtin_error ("`%s' not an alias", list->word->word);
  139.  
  140.       any_failed++;
  141.     }
  142.  
  143.       list = list->next;
  144.     }
  145.  
  146.   if (any_failed)
  147.     return (EXECUTION_FAILURE);
  148.   else
  149.     return (EXECUTION_SUCCESS);
  150. }
  151.  
  152. /* Return a new string which is the quoted version of STRING. */
  153. static char *
  154. single_quote (string)
  155.      char *string;
  156. {
  157.   register int i, j, c;
  158.   char *result;
  159.  
  160.   result = (char *)xmalloc (3 + (2 * strlen (string)));
  161.  
  162.   result[0] = '\'';
  163.  
  164.   for (i = 0, j = 1; string && (c = string[i]); i++)
  165.     {
  166.       result[j++] = c;
  167.  
  168.       if (c == '\'')
  169.     result[j++] = '\'';
  170.     }
  171.  
  172.   result[j++] = '\'';
  173.   result[j] = '\0';
  174.  
  175.   return (result);
  176. }
  177.  
  178. /* Output ALIAS in such a way as to allow it to be read back in. */
  179. static void
  180. print_alias (alias)
  181.      ASSOC *alias;
  182. {
  183.   char *value = single_quote (alias->value);
  184.  
  185.   printf ("alias %s=%s\n", alias->name, value);
  186.   free (value);
  187.  
  188.   fflush (stdout);
  189. }
  190.